home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / GPLE.48 PATCH.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  16 lines
  1. 10  REM <CTRL-J><CTRL-J>MAKE GPLE.48 COMPATIBLE<CTRL-M>        WITH FLEX TYPE<CTRL-J><CTRL-J>
  2. 20  IF  PEEK(1005) < >1  THEN  PRINT "GLOBAL PLE.48 IS NOT LOADED": STOP 
  3. 30  IF  PEEK(36099) = 76  THEN  PRINT "THIS IS GPLE V4.0 OR LATER": PRINT "USE CONFIG GPLE WITH FLEXTYPE.VID": STOP 
  4. 40  FOR I = 0 TO 163: READ V: POKE 36096 +I,V: NEXT 
  5. 50 I = 36096:V =  PEEK(975)
  6. 60  POKE I +69,V: POKE I +99,V: POKE I +117,V: POKE I +145,V
  7. 70  REM <CTRL-J><CTRL-J>PATCH GPLE BUG<CTRL-J><CTRL-J>
  8. 80 A = 38144
  9. 90  IF  PEEK(A) < >164  OR  PEEK(A +1) < >36  OR  PEEK(A +2) < >76  THEN A = A +1: GOTO 90
  10. 100  IF A >38400  THEN  PRINT "THIS VERSION OF GPLE NOT RECOGNIZED!": STOP 
  11. 110  POKE A,104: POKE A +1,104
  12. 120  & : END 
  13. 130  REM <CTRL-J><CTRL-J>VIDEO DRIVER<CTRL-J><CTRL-J>
  14. 140  DATA 128,0,76,61,141,76,45,141,76,87,141,76,90,141,76,108,141,76,137,141,141,161,141,165,50,72,169,63,133,50,173,161,141,9,64,32,87,141,104,133,50,173,161,141,96,169,149,32,87,141,169,240,141,88,141,169
  15. 150  DATA 253,141,89,141,96,140,162,141,142,163,141,32,15,8,165,54,141,88,141,165,55,141,89,141,174,163,141,172,162,141,96,76,240,253,72,140,162,141,142,163,141,32,6,8,174,163,141,172,162,141,104,96,72,140,162,141
  16. 160  DATA 142,163,141,32,9,8,174,163,141,172,162,141,104,201,141,208,7,169,157,32,87,141,169,141,96,140,162,141,142,163,141,32,12,8,165,234,224,1,208,2,41,31,174,163,141,172,162,141,96,0,0,0